home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 18
/
Tiger_Disk_018_19xx_Tiger-Crew-Disk_de_Side_A.d64
/
ende
(
.txt
)
next >
Wrap
Commodore BASIC
|
2023-02-26
|
891b
|
23 lines
10 poke53280,.:poke53281,.:printchr$(147)
15 leta=(NULL):forb=0to9*astep2*a/20:print"* "
20 letc=10*(sin(b)+1.5):letd=int(c+.9)
25 :poke646,int(rnd(1)*15)+1:printtab(d);" ende":printtab(37)"[145][145][145] *":nextb
30 poke56325,0:
35 print"[147] ********* ** ";
40 print" ** ** ** ";
45 print" ** ** ";
50 print" ** ** ";
55 print" ***** *** **** ******* ******* ";
60 print" ** *** ** ** ** ** ** ";
65 print" ** ** ** ** ** ******* ";
70 print" ** ** ** ** ** ** ** ";
75 print" ********* ** ** ******** ******* ";
80 poke56325,58:ti$="000003":wait161,1
85 print"[147][151]";:print"";
90 reada$:ifa$="0"then110
95 printtab((15 -len(a$))/2)a$:goto90
100 data gemacht von,l u k i a n,===========
105 data im april 95,0
110 poke56325,1:fori=0to150:next :print"[155] "
115 poke56325,58:ti$="000004":wait161,1:sys58253